home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / lib / extra / gethead.a < prev    next >
Text File  |  1994-02-01  |  354b  |  25 lines
  1.  
  2.         ;   GETHEAD.A
  3.         ;
  4.         ;   (c)Copyright 1990, Matthew Dillon, All Rights Reserved
  5.         ;
  6.  
  7.         section text,CODE
  8.  
  9.         xdef    _GetHead    ; GetHead(list:4(sp))
  10.         xdef    _GetSucc    ; GetSucc(node:4(sp))
  11.         xdef    @GetHead
  12.         xdef    @GetSucc
  13. _GetSucc:
  14. _GetHead:    move.l    4(sp),A0
  15. @GetHead:
  16. @GetSucc:
  17.         move.l    (A0),A0
  18.         move.l    (A0),D0
  19.         beq    gh0
  20.         move.l    A0,D0
  21. gh0        rts
  22.  
  23.         END
  24.  
  25.